home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / vdiutil.d < prev    next >
Text File  |  1997-10-26  |  1KB  |  28 lines
  1. DEFINITION MODULE VDIUtil;
  2.  
  3. FROM SYSTEM     IMPORT ADDRESS;
  4.  
  5. PROCEDURE SetObjColor (tr: ADDRESS; ob : INTEGER; foreground, background : INTEGER);
  6. (* Setzt die Farbe fr ein Objekt *)
  7.  
  8. PROCEDURE SetTreeColor (tr: ADDRESS; foreground, background : INTEGER);
  9. (* Farben fr einen Objektbaum setzen *)
  10.  
  11. PROCEDURE SetLongIntStr (tree: ADDRESS; obj: INTEGER; val : LONGINT);
  12. PROCEDURE GetLongIntStr (tree: ADDRESS; obj: INTEGER; VAR val : LONGINT);
  13.  
  14. PROCEDURE SetIntStr (tree: ADDRESS; obj: INTEGER; val : INTEGER);
  15. PROCEDURE GetIntStr (tree: ADDRESS; obj: INTEGER; VAR val : INTEGER);
  16.  
  17. PROCEDURE SetXString (tree  : ADDRESS; obj: INTEGER;
  18.                       sTree : ADDRESS; idx: INTEGER);
  19. PROCEDURE SetXState (tree : ADDRESS; obj: INTEGER; xState : INTEGER);
  20. PROCEDURE GetXState (tree : ADDRESS; obj: INTEGER) : INTEGER;
  21.  
  22. PROCEDURE FormHandle(form : ADDRESS):INTEGER;
  23.  
  24. PROCEDURE isKey(VAR kstate : BITSET; VAR scan, char : CHAR):BOOLEAN;
  25. (* sieht per event_multi nach, ob ein Buchstabe vorliegt *)
  26.  
  27. END VDIUtil.
  28.